\ProvidesPackage{psalter}
\usepackage{amsmath}
\usepackage{verse}
\usepackage{setspace}
\RequirePackage{fix-cm}

%\setlength{\vleftskip}{10pt}
%\setlength{\vrightskip}{10pt}
%\setlength{\parskip}{1ex}
%\setlength{\topmargin}{0in}
%\setlength{\oddsidemargin}{0in}
%\setlength{\evensidemargin}{0in}
%\setlength{\textheight}{9in}
%\setlength{\textwidth}{6.25in}
%\setlength{\headwidth}{6.25in}
%\DeclareMathSizes{12}{10}{5}{5}

\newcommand{\flagflex}[1]{\hskip\vrightskip\llap{\raisebox{.5ex}{\fontsize{5pt}{5pt}\fontencoding{T1}\selectfont#1}}\hskip\vrightskip\ignorespaces}

\newcommand\pl[2][0sp]{\oalign{\smash{#2}\cr\noalign{\vskip#1}\hfil\fontsize{5pt}{5pt}\fontencoding{T1}\selectfont{\textbf{+}}\hfil\cr}}
%\newcommand\pl[2][50000sp]{\oalign{\smash{#2}\cr\noalign{\vskip#1}\hfil$\!{\textbf{\scriptscriptsize+}}\!$\hfil\cr}}

\newcommand\mi[2][0sp]{\oalign{\smash{#2}\cr\noalign{\vskip#1}\hfil\fontsize{5pt}{5pt}\fontencoding{OMS}\selectfont\char0\hfil\cr}}
%\newcommand\mi[2][50000sp]{\oalign{\smash{#2}\cr\noalign{\vskip#1}\hfil$\!{\scriptstyle{\bm{-}}}\!$\hfil\cr}}

\def\preLilyPondExample{\begin{adjustwidth}{-1cm}{}}
\def\postLilyPondExample{\end{adjustwidth}}

%\def\pl#1{\oalign{\smash{#1}\cr\hfil$\scriptscriptstyle\!+\!$\hfil\cr}}
%\def\pl#1{\leavevmode\setbox0\hbox{#1}\setbox1\hbox to \wd0{\hss\raise1.5ex\hbox{\tiny{+}}\hss}{\vtop{\box0\box1}}}
%\def\pl#1{$\smash{\underset{\text{\tiny{+}}}{\smash{\text{#1}}}}$}
%\def\pl#1{$\underset{\text{\tiny +}}{\text{#1}}$}
%\def\pl#1{$\stackrel{\hbox{#1}}{\hbox{\tiny +}}$}
%\def\pl#1{$\displaystyle{\mathop{\mbox{\smash {#1}}}_{\scriptscriptstyle +}}$} 

%\def\mi#1{\oalign{\smash{#1}\cr\hfil$\scriptscriptstyle\!-\!$\hfil\cr}}
%\def\mi#1{\leavevmode\setbox0\hbox{#1}\setbox1\hbox to \wd0{\hss\raise1.5ex\hbox{\tiny{--}}\hss}{\vtop{\box0\box1}}}
%\def\mi#1{$\underset{\text{--}}{\smash{\text{#1}}}$}
%\def\mi#1{$\underset{\text{--}}{\text{#1}}$}
%\def\mi#1{$\displaystyle{\mathop{\mbox{\smash {#1}}}_{\scriptscriptstyle -}}$} 

\newcommand\bv[1][]{\def\tmp{#1}\@bv}
\newcommand\@bv[2][\z@]{%
\typeout{[[\tmp]][[#1]][[#2]]}%
  \ifx\tmp\@empty
   \textbf{#2}%
  \else
  \setbox0\hbox{\tmp#2}%
  \setbox2\hbox{\tmp\textbf{#2}}%
  \tmp\kern\dimexpr(\wd0-\wd2)/2-#1\relax\textbf{#2}%
  \fi}


\def\kernfix#1#2{%
  \setbox0\hbox{#1\kern\z@#2}%
  \setbox2\hbox{#1#2}%
  \kern\dimexpr\wd2-\wd0\relax}

\newlength\fake@f
\newlength\fake@c
\def\fakesc#1{%
  \begingroup%
  \xdef\fake@name{\csname\curr@fontshape/\f@size\endcsname}%
  \fontsize{\fontdimen8\fake@name}{\baselineskip}\selectfont%
  \uppercase{#1}%
  \endgroup%
}

\newcommand\textline[4][t]{%
  \par\smallskip\noindent\parbox[#1]{.333\textwidth}{\raggedright#2}%
  \parbox[#1]{.333\textwidth}{\centering#3}%
  \parbox[#1]{.333\textwidth}{\raggedleft{#4}}\par\smallskip%
}

